home *** CD-ROM | disk | FTP | other *** search
/ Complete Internet Archive / Complete Internet Archive.iso / Web Boards / WebForum_tar(2).Z / WebForum_tar(2) / WebForum / src / post.pl < prev    next >
Encoding:
Text File  |  1995-01-19  |  1008 b   |  40 lines
  1. #
  2. # post a message, either as:
  3. #   "post" = starting a new subject
  4. #   "followup" = continue on a subject
  5. #   "reply" = reply to a message 
  6. #
  7. # Copyright (C) 1994 Afzal Ballim
  8.  
  9. ############################################################
  10. #
  11. # WFCommandPost:
  12. #
  13. sub WFCommandPost {
  14. require "ctime.pl";
  15.  
  16. local ($c,%in)=@_;
  17. local ($date)=&ctime(time);chop $date;
  18. local ($user)=$ENV{REMOTE_USER};
  19. local (%mb)=&WFReadDBFile($user);
  20. local ($forumdec)=&WFDecodeDatum($in{"forum"});
  21. local ($subjectdec)=&WFDecodeDatum($in{"subject"});
  22.  
  23. if ($c ne "reply") {$in{"message"} = "";}
  24.  
  25. &WFIncFile("ABSWFHTML/POST.HTML",
  26.             ENCFORUM,"$in{forum}",
  27.             ENCSUBJECT,"$in{subject}",
  28.             THEFORUM,"$forumdec",
  29.             THESUBJECT,"$subjectdec",
  30.             THEPXREF,"$in{message}",
  31.             THEPOSTER,"$user ($mb{username})",
  32.             THEPEMAIL,"<a href=mailto:$mb{email}>$mb{email}</a>",
  33.             THEPHURL,"<a href=$mb{homeurl}>$mb{homeurl}</a>",
  34.             THENOW,"$date");
  35.  
  36. return "";
  37. }
  38.  
  39. 1;
  40.